www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminshop\methord.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<%
if find_dataw("qitashezhi123","0",3)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
%>
<link href="../images/css.css" rel="stylesheet" type="text/css">
<title>送货方式</title>
<%dim action,deliveryid
deliveryid=request.QueryString("id")
action=request.QueryString("action")
set rs=server.CreateObject("adodb.recordset")
select case action
case "deliverysave"
rs.open "select * from delivery where deliveryid="&deliveryid,conn,1,3
rs("subject")=trim(request("subject"))
rs("deliveryidorder")=request("deliveryidorder")
rs("fee")=request("fee")
rs("methord")=0
rs.update
rs.close
response.write "<script language=javascript>alert('成功修改了送货方式！');history.go(-1);</script>"
response.End
case "deliveryadd"
rs.open "select * from delivery",conn,1,3
rs.addnew
rs("subject")=trim(request("subject"))
rs("deliveryidorder")=request("deliveryidorder")
rs("fee")=request("fee")
rs("methord")=0
rs.update
rs.close
response.write "<script language=javascript>alert('成功添加了新的送货方式！');history.go(-1);</script>"
response.End
case "deliverydel"
conn.execute "delete from delivery where deliveryid="&deliveryid
response.redirect "methord.asp?action=delivery"
case "zhifudel"
conn.execute "delete from delivery where deliveryid="&deliveryid
response.redirect "methord.asp?action=zhifu"
case "zhifusave"
rs.open "select * from delivery where deliveryid="&deliveryid,conn,1,3
rs("subject")=trim(request("subject2"))
rs("deliveryidorder")=request("deliveryidorder")
rs("methord")=1
rs.update
rs.close
response.write "<script language=javascript>alert('成功修改了支付方式！');history.go(-1);</script>"
response.End
case "zhifuadd"
rs.open "select * from delivery",conn,1,3
rs.addnew
rs("subject")=trim(request("subject2"))
rs("deliveryidorder")=request("deliveryidorder")
rs("methord")=1
rs.update
rs.close
response.write "<script language=javascript>alert('成功添加了新的支付方式！');history.go(-1);</script>"
response.End
end select
set rs=nothing
%>
<style type="text/css">
<!--
.STYLE1 {
color: #000000;
font-weight: bold;
}
-->
</style>
<table width="98%" border="0" align="center"class="tableBorder" cellpadding="1" cellspacing="1" bgcolor="#fbf4f4">
<tr align="center" bgcolor="#fbf4f4" height="20">
<td height="31" bgcolor="#FFFFFF"><a href="methord.asp?action=delivery" class="STYLE1">编辑送货方式</a></td>
<td bgcolor="#FFFFFF"><a href="methord.asp?action=zhifu" class="STYLE1">编辑支付方式</a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="100" colspan="2" bgcolor="#Fbf4f4"><%select case action
case "delivery"%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" >
<tr bgcolor="#fbc2c2" align="center" height="20">
<td width="30%" >送货方式</td>
<td width="25%">加收金额</td>
<td width="20%" >排 序</td>
<td width="25%">操 作 </td>
</tr>
<%dim i,j
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from delivery where methord=0 order by deliveryidorder",conn,1,1
i=rs.recordcount
do while not rs.eof%>
<tr align="center" bgcolor="#fbf4f4">
<form name="form1" method="post" action="methord.asp?action=deliverysave&id=<%=rs("deliveryid")%>">
<td><input name="subject" type="text" id="subject" size="14" value=<%=trim(rs("subject"))%>></td>
<td><input name="fee" type="text" id="fee" size="4" value=<%=rs("fee")%> onKeyPress = "return regInput(this, /^\d*\.?\d{0,2}$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData('Text'))">元</td>
<td><input name="deliveryidorder" type="text" id="deliveryidorder" size="2" value=<%=rs("deliveryidorder")%> onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
<td><input type="submit" name="Submit" value="修 改">
<a href="methord.asp?action=deliverydel&id=<%=rs("deliveryid")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color="#FF0000">删除</font></a>
</td>
</form>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing%><br>
<tr><td bgcolor="#fbc2c2" colspan="4" align="center">增加送货方式</td>
</tr>
<tr align="center" bgcolor="#Fbf4f4">
<form name="form2" method="post" action="methord.asp?action=deliveryadd">
<td><input name="subject" type="text" id="subject" size="14"></td>
<td><input name="fee" type="text" id="fee" size="4" onKeyPress = "return regInput(this, /^\d*\.?\d{0,2}$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData('Text'))">元</td>
<td><input name="deliveryidorder" type="text" id="deliveryidorder" value=<%=i+1%> size="2" onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
<td><input type="submit" name="Submit3" value="添 加"></td>
</form>
</tr>
</table>
<%case "zhifu"%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" >
<tr bgcolor="#fbc2c2" align="center" height="20">
<td width="40%" >支付方式</td>
<td width="30%" >排 序</td>
<td width="30%" >操作</td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from delivery where methord=1 order by deliveryidorder",conn,1,1
j=rs.recordcount
do while not rs.eof%>
<tr align="center" bgcolor="#Fbf4f4">
<form name="form1" method="post" action="methord.asp?action=zhifusave&id=<%=rs("deliveryid")%>">
<td><input name="subject2" type="text" id="subject2" size="14" value=<%=trim(rs("subject"))%>></td>
<td><input name="deliveryidorder" type="text" id="deliveryidorder" size="2" value=<%=rs("deliveryidorder")%> onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
<td><input type="submit" name="Submit2" value="确 认">
<a href="methord.asp?action=zhifudel&id=<%=rs("deliveryid")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color="#FF0000">删除</font></a>
</td>
</form>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</tr>
<tr><td bgcolor="#fbc2c2" colspan="4" align="center">增加支付方式</td>
</tr>
<tr bgcolor="#Fbf4f4" align="center">
<form name="form1" method="post" action="methord.asp?action=zhifuadd">
<td><input name="subject2" type="text" id="subject2" size="14"></td>
<td><input name="deliveryidorder" type="text" id="deliveryidorder" value=<%=j+1%> size="2" onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
<td><input type="submit" name="Submit32" value="添 加"></td>
</form>
</tr>
</table>
<%end select%> </td>
</tr>
</table>
<br>
<script>
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
</script>